home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene4.dir / 01093_Script_1093 < prev    next >
Text File  |  1983-01-30  |  2KB  |  68 lines
  1. ON ARCHIVIO
  2.   if (the mouseh >= 51 and the mouseh <= 548) and (the mousev >=0 and the mousev <= 429) then
  3.     GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll
  4.     
  5.     set cst to the mousecast
  6.     set var_dll to 0
  7.     SET TIPO= chars(STRING(THE CASTTYPE OF CAST (cst )),1,length(STRING(THE CASTTYPE OF CAST (cst ))))
  8.     
  9.     if tipo ="digitalVideo" then  set materiale to the fileName of cast (cst)
  10.     if tipo ="bitmap" then 
  11.       if  the height of cast (cst)=480 and the width of cast (cst)=640 then
  12.         
  13.         if the machineType<256 then
  14.           linkdll "stagetc"
  15.           put StageToCast(mNew,0,51,430,570) into mauro
  16.           set materiale to mauro(mgethandle)
  17.           mauro(mDispose)
  18.           --          UNLINKDLL "stagetc"
  19.           
  20.         else          
  21.           global copyObj, savePicHandle, pictureFlag,cobalto
  22.           linkdll "dataproj"
  23.           put dataproj (mNew ) into cobalto
  24.           cobalto(mSetCaptureRect,51,0,570,430)
  25.           --cobalto(mdispose)
  26.           
  27.         end if
  28.       else
  29.         put the picture of cast (cst) into materiale
  30.       end if
  31.     end if
  32.     
  33.     
  34.     
  35.     if tipo ="text" then 
  36.       SET XX=1
  37.       SET MATERIALE= ""
  38.       REPEAT WHILE XX<=the number of lines of the text of cast (cst)
  39.         set materiale to MATERIALE && line XX of the text of cast (cst)
  40.         SET XX=XX+1
  41.       END REPEAT
  42.     END IF
  43.     
  44.     
  45.     
  46.     global mywindow
  47.     if objectp(mywindow) then forget mywindow 
  48.     
  49.     if the machinetype = 256 then
  50.       set ttt=char 1 to 2 of the pathName&"\invenzio\NOME.DIR"
  51.     else
  52.       set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  53.     end if
  54.     
  55.     set mywindow to window  "RACCOLTA"
  56.     SET THE FILENAME OF MYWINDOW TO TTT
  57.     -- set the rect of mywindow to mywindowrect
  58.     set the titlevisible of mywindow to true
  59.     set the windowType of window ttt to 0
  60.     
  61.     open mywindow
  62.   end if    
  63. end
  64.  
  65.  
  66. on ripristina
  67.  
  68. END